object SummaryDlg: TSummaryDlg Left = 163 Top = 100 Hint = 'Select '#39'Summary By'#39' data field' ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Summary' ClientHeight = 362 ClientWidth = 560 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 96 Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 465 Height = 345 Shape = bsFrame IsControl = True end object Label1: TLabel Left = 16 Top = 20 Width = 73 Height = 13 Caption = 'Summary By:' end object Label2: TLabel Left = 200 Top = 333 Width = 34 Height = 13 Caption = 'Total:' end object Label3: TLabel Left = 264 Top = 333 Width = 63 Height = 13 Alignment = taRightJustify AutoSize = False end object Label4: TLabel Left = 328 Top = 333 Width = 83 Height = 13 Alignment = taRightJustify AutoSize = False end object OKBtn: TBitBtn Left = 476 Top = 8 Width = 77 Height = 27 Hint = 'Close Summary Window' Caption = '&Close' TabOrder = 0 Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 476 Top = 40 Width = 77 Height = 27 Hint = 'Display Help Window' TabOrder = 1 OnClick = HelpBtnClick Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object StringGrid1: TStringGrid Left = 16 Top = 40 Width = 452 Height = 289 ColCount = 4 DefaultRowHeight = 16 FixedCols = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine] RowCount = 17 TabOrder = 2 OnDrawCell = StringGrid1DrawCell ColWidths = ( 250 58 83 38) end object ComboBox1: TComboBox Left = 90 Top = 16 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 3 OnChange = ComboBox1Change end object BitBtn1: TBitBtn Left = 476 Top = 72 Width = 77 Height = 27 Hint = 'Display Graph' Caption = '&Graph' Default = True Enabled = False TabOrder = 4 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003 0003333377737773777333333333333333333FFFFFFFFFFFFFFF770000000000 0000777777777777777733039993BBB3CCC3337F737F737F737F37039993BBB3 CCC3377F737F737F737F33039993BBB3CCC33F7F737F737F737F77079997BBB7 CCC77777737773777377330399930003CCC3337F737F7773737F370399933333 CCC3377F737F3333737F330399933333CCC33F7F737FFFFF737F770700077777 CCC77777777777777377330333333333CCC3337F33333333737F370333333333 0003377F33333333777333033333333333333F7FFFFFFFFFFFFF770777777777 77777777777777777777333333333333333333333333333333330000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object SortBy: TRadioGroup Left = 478 Top = 144 Width = 81 Height = 65 Caption = 'Sort By' ItemIndex = 0 Items.Strings = ( 'Name' 'Value') TabOrder = 6 OnClick = SortByClick end object BitBtn2: TBitBtn Left = 476 Top = 104 Width = 77 Height = 27 Hint = 'Print Summary' Caption = '&Print' Default = True Enabled = False TabOrder = 5 OnClick = BitBtn2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object DetailShell1: TDetailShell OnBodyBefore = DetailShell1BodyBefore OnRowPrint = DetailShell1RowPrint OnRowAfter = DetailShell1RowAfter Left = 496 Top = 216 end object ReportSystem1: TReportSystem TitleSetup = 'Report Setup' TitleStatus = 'Report Status' TitlePreview = 'Report Preview' SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup] SystemFiler.StatusFormat = 'Generating page %p' SystemPreview.ZoomFactor = 100.000000000000000000 SystemPrinter.MarginBottom = 1.000000000000000000 SystemPrinter.MarginTop = 1.000000000000000000 SystemPrinter.ScaleX = 100.000000000000000000 SystemPrinter.ScaleY = 100.000000000000000000 SystemPrinter.StatusFormat = 'Printing page %p' SystemPrinter.Title = 'ReportPrinter Report' SystemPrinter.UnitsFactor = 1.000000000000000000 OnPrint = ReportSystem1Print Left = 496 Top = 264 end end